TEMPORALS

Kuwait Leaders: Emirs & Speakers

Timeline

Photo from the British Library, Mubarak Al Sabah on horseback

Photo from the British Library, Mubarak Al Sabah on horseback

Kuwait is the mother and father, Earth and it’s supplies. She is the past, present and future…
— Jaber Al-Ahmad Al-Sabah


Load data [Ingest]

Emirs of Kuwait

emirs <- read.csv("archetypes/heads-of-state/kuwait-emirs.csv", header = TRUE, stringsAsFactors = FALSE)

emirs

Speakers of Kuwait National Assembly

speakers <- read.csv("archetypes/heads-of-state/kuwait-speakers.csv", header = TRUE, stringsAsFactors = FALSE)

speakers

Prepare data [Wrangle]

#Abbreviate the First Names for better visualization
speakers$Name <- sub("[a-z]+", ".", speakers$Name)

#Assign an id for each individual person (Each person may held office multiple times)
speakers$Name <- factor(speakers$Name, levels = c("A. Al-Ghanim", "A. Al-Saqr", "S. Al-Abdulrazzaq", "A. Al-Serhan", "K. Al-Ghunaim", "M. Al-Adasani", "A. Al-Sadoun", "J. Al-Kharafi", "A. Al-Rashid", "M. Al-Ghanim"))
speakers <- transform(speakers,id=as.numeric(Name))

#For the Emirs of Kuwait, we do not need to do much wrangling
emirs$id <- as.numeric(rownames(emirs))

Plot [ Views / Temporals ]

theme_opts <- theme(
    plot.title = element_text(color = "black", size = 23, face = "bold"),
    plot.subtitle = element_text(color = "black", size = 18),
    plot.caption = element_text(color = "#555555", size = 10),
    axis.title.y = element_blank(),
    axis.text.y = element_blank(),
    # axis.text.x = element_text(vjust = 12),
    panel.border = element_blank(),
    panel.background = element_blank(),
    #panel.grid.minor = element_blank(), # remove minor gridlines
    panel.grid.major.x = element_blank(), # remove x (vertical) gridlines
    legend.title = element_blank(), # remove legend title
    legend.text = element_text(color = "black", size = 8),
    legend.position='bottom'
  )

v1 <- ggplot(emirs, aes(x = Reign.start, y = id, color = Branch)) +
 geom_segment(aes(xend = Reign.end, yend = id, color = Branch), size = 6) +
 geom_text(aes(label = Name, hjust = ifelse(id < 4, -1.5, 1.1)), size = 6, show.legend = FALSE) +
  scale_color_manual(values = c("Before Mubarak Al-Sabah" = "#35aa56", "Al Ahmad" = "#004266", "Al Salim"  = "#D62828")) +
      labs(title = "His Highness, the Emirs of Kuwait",
        subtitle = "Timeline of Reign")+
   theme_bw() + 
  theme_opts
   
   
girafe(ggobj = v1, width_svg = 16, height_svg = 9,
       options = list(opts_sizing(rescale = TRUE, width = 0.9)))

v2 <- ggplot(speakers, aes(x = Start, y = id, color = Political.Faction)) +
 geom_segment(aes(xend = End, yend = id, color = Political.Faction), size = 6) +
 geom_text(aes(label = Name, hjust = ifelse(id < 5, -0.5, 1.1)), size = 6, show.legend = FALSE) +
 scale_color_manual(values = c("Chamber of Commerce" = "#35aa56", "Muslim Brotherhood" = "#FCB322", "Independent" = "#004266", "Populist bloc"  = "#D62828")) +
   labs(title = "Speakers of Kuwait National Assembly",
        subtitle = "Timeline as Speakers")+
   theme_bw() + 
  theme_opts
   
   
girafe(ggobj = v2, width_svg = 16, height_svg = 9,
       options = list(opts_sizing(rescale = TRUE, width = 0.9)))

References

Citations and data sources

  • Narrative and Data Sources: Wikipedia, GO
Reference: Photo 49/1/21
Title': The Shaikh waiting, Koweit.'
Photographer: Unknown
Pages: 20r
Author: East India Company, the Board of Control, the India Office, or other British Government Department
Usage terms: Open Government Licence